home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The 640 MEG Shareware Studio 2
/
The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO
/
prog
/
xlisp21.zip
/
TAK.LSP
< prev
next >
Wrap
Lisp/Scheme
|
1988-02-12
|
177b
|
10 lines
(defun tak (x y z)
(if (not (< y x))
z
(tak (tak (1- x) y z)
(tak (1- y) z x)
(tak (1- z) x y))))
(defun dotak ()
(tak 18 12 6))